home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / address.tk < prev    next >
Encoding:
Tcl/Tk script  |  1995-06-29  |  781 b   |  33 lines
  1. #!/usr/local/bin/wish -f
  2.  
  3. frame .frame \
  4.     -relief raised \
  5.     -borderwidth 2
  6. listbox .frame.list
  7. tk_listboxSingleSelect .frame.list
  8. frame .lframe
  9. label .lframe.name \
  10.     -text Name
  11. label .lframe.telephone \
  12.     -text Telephone
  13. frame .tframe
  14. entry .tframe.name_entry
  15. entry .tframe.telephone_entry
  16.  
  17. pack .frame.list
  18. pack .lframe.name .lframe.telephone \
  19.     -side top -anchor ne
  20. pack .tframe.name_entry .tframe.telephone_entry \
  21.     -side top -expand 1
  22. pack .frame .lframe .tframe\
  23.      -side left -anchor n
  24.  
  25. .frame.list insert end {Jan Newmarch} {John Ousterhout} {Stephen Prendergast}
  26.  
  27. bind .frame.list <Double-Button-1> {
  28.     set index [.frame.list curselection]
  29.     set sel [.frame.list get $index]
  30.     .tframe.name_entry delete 0 end
  31.     .tframe.name_entry insert 0 $sel
  32. }
  33.